home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
disk
/
bakup
/
mrbk220.lha
/
Rexx
/
control.mrbk
< prev
next >
Wrap
Text File
|
1991-03-31
|
1KB
|
56 lines
/* control.mrbk */
/* This ARexx script exercises the takecontrol/releasecontrol keywords. */
signal on ERROR
signal on BREAK_C
parse source type res called resolved ext host
options results
if ~(Show('P', 'MRBackup_#1')) then do
say "You must run MRBackup first. With a little work, you could"
say "get this ARexx script to do it for you."
exit 1
end
address "MRBackup_#1"
/* poptofront */
takecontrol
if rc ~= 0 then do
say "I failed to take control of MRBackup; rc = " || rc
exit rc
end
say "Try to interact with MRBackup's window. You shouldn't be able to."
say "Type anything when you are done."
pull response
releasecontrol
say "I have given control back to MRBackup. It should now behave normally."
exit 0
/*------------------------------------------------------------------*/
break_c:
say "*** Control-C recieved. Stopped by user. ***"
exit 5
/*------------------------------------------------------------------*/
error:
say "Error"
exit 6
/*------------------------------------------------------------------*/